home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / BASIC / 0007.ZIP / PAL80.BAS < prev    next >
BASIC Source File  |  1984-04-29  |  840b  |  32 lines
  1. 100 'ARTWARE by Roman Verostko
  2. 110 'Mpls College of Art and Design
  3. 120 '133 East 25th Street
  4. 130 'Minneapolis, Minnesota 55404
  5. 140 '
  6. 150 '**********************
  7. 160 '*                    *
  8. 170 '*  PALETTE PROMPTER  *
  9. 180 '*                    *
  10. 190 '*    "PAL80.BAS"     *
  11. 200 '*                    *
  12. 210 '**********************
  13. 220 '
  14. 230 'This version for width 80
  15. 240 'Use "PAL40" for programming in width 40
  16. 250 '
  17. 260 SCREEN 0,1:KEY OFF:CLS:WIDTH 80
  18. 270 N$=STRING$(3,219)
  19. 280 FOR V=4 TO 40 STEP 4
  20. 290  C=(V/4)-1:IF C=0 THEN C=8
  21. 300  N=(V/4)-1:COLOR C,0,0
  22. 310  LOCATE 25,V-1:PRINT N;
  23. 320  IF N=0 THEN C=0:COLOR C,0,0
  24. 330  LOCATE 25,V-3:PRINT N$;
  25. 340 NEXT V
  26. 350 FOR V=50 TO 80 STEP 5
  27. 360  C=(V/5):COLOR C,0,0
  28. 370  LOCATE 25,V-7:PRINT C;
  29. 380  LOCATE 25,V-9:PRINT N$;
  30. 390 NEXT V
  31. 400 COLOR 15,0:LOCATE 1,1:END
  32.